VII. Full Screen Processing, Summary, 

and Examples 


* 



Learning System/23 BASIC 








o 


t 



v, 

o 



VII. Full Screen Processing, Summary, 

and Examples 


Learning System/23 BASIC 






First Edition (January 1981) 

Use this publication only for the purpose stated in the Preface. 

Changes are periodically made to the information herein; any such changes will be reported in 
subsequent revisions or Technical Newsletters. 

It is possible that this material may contain reference to, or information about, IBM products 
(machines and programs), programming, or services that are not announced in your country. 

Such references or information must not be construed to mean that IBM intends to announce 
such IBM products, programming, or services in your country. 

Publications are not stocked at the address given below. Requests for copies of IBM publications 
should be made to your IBM representative or the IBM branch office serving your locality. 

This publication could contain technical inaccuracies or typographical errors. A form for readers' 
comments is provided at the back of this publication. If the form has been removed, address your 
comments to IBM Corporation, Systems Publications, Department 27T, P.O. Box 1328, Boca 
Raton, Florida 33432. IBM may use and distribute any of the information you supply in any 
way it believes appropriate without incurring any obligation whatever. You may, of course, 
continue to use the information you supply. 


©Copyright International Business Machines Corporation 1981 



VII. Full screen processing, summary and 
examples 

Contents 



O 


About this book.iv 

Chapter 1. Full screen processing.1-1 

Introduction.1 -1 

Displaying or inputting one line of data.1-2 

Displaying or inputting several lines of data.1-7 

Chapter summary.1-13 

Exercises.1-14 

Answers.1 -17 

Chapter 2. Organizing a program.2-1 

Introduction.2-1 

Solving a problem.2-2 

Going from a flowchart to a program.2-8 

Inputting data.2-12 

Outputting data.2-14 

Processing data.2-16 

Chapter summary.2-20 

Exercises.2-21 

Answers.2-23 

Chapter 3. Programming examples.3-1 

Introduction.3-1 

Example 1 .3-2 

Example 2.3-12 

Example 3.3-16 

Chapter 4. Example inventory program.4-1 

Introduction.4-1 

Flowchart.4-2 

Program.4-6 



iii 


Full screen processing, summary and examples 
































VII. Full screen processing, summary and 
examples 

About this book 

This is the seventh in your series of seven books on 
Learning System/23 BASIC. By now, you should be familiar 
with the fundamental statements and commands that are 
used to program your System/23. 

In Chapter 1 of this book, we will show you one more 
feature that is available on your System/23. You will learn 
how to use full screen processing. Full screen processing 
allows you to input data from or output data to specific 
areas on the screen 

In the remaining chapters of this book, we will review what 
you have learned. Chapter 2 is about organizing a program 
and solving a problem. It includes flowcharts, which are « 

diagrams showing the solution to a problem. 

Chapter 3 contains three example programs. These 
programs use the BASIC statements you have studied. 

Notes are included to explain the programs. 

Chapter 4 contains a flowchart and example program. This 
program is an inventory control program. Notes are included 
to explain each section of the program. 
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Chapter 1. Full screen processing 


Introduction 


Up to this point, you have used only one line of the screen 
at a time in your programs. You know how to display data 
on the screen and input data from the screen, one line at a 
time. 

In this chapter, you will learn how to use the entire screen 
to input or output data. You will learn how to place the 
cursor in any position on the screen. 

If you have run any of the IBM supplied application 
programs, you have already used full screen processing. The 
Customer Support Functions also use full screen processing. 
Now you will learn how to use it in your programs, too. 

Objectives 


Upon completion of this chapter, you should be able to do 
the following: 

• Display data in a specific area on the screen by using 
the PRINT FIELDS statement. 

• Input data from a specific area on the screen by using 
the INPUT FIELDS statement. 

If you are familiar with these tasks, try the exercises located 
at the end of this chapter. If not, read through the chapter 
before going on to the exercises. 


o 
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Full screen processing 

Displaying or inputting one line of data 


You already know how to display information on your 
screen. Remembering what you have already learned about 
PRINT, enter a 2-line program to display your name. Use 
line numbers 10 and 20, and don’t forget to enter CLEAR. 



Answer: 


If your name is John Doe, your answer should look like this: 


10 
o n 



Now run your program: 


19- 1 

20 - | 

21-1 

22_J JOHN 1 DO!: 

23- 1 

24- 1 

L|-,- 

1 10 20 


RUN 

Your name should be displayed at the bottom of the screen 
on line 23. Your name moves up, and the cursor appears. 
Then the words READY INPUT should appear beneath the 
cursor. 

If you had wanted to display your name on a clear screen, 
your answer would have looked like this: 



CLEAR 

10 PRINT NEWPAGE;"JOHN DOE" 
20 END 


With either program, your name is always displayed on line 
23, because the PRINT statement always causes data to be 
displayed there. Then your name moves up, and the cursor 
appears. 
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Now we’ll show you how to display your name in a specific 
location on the screen. Enter the following program. (Don't 
forget to enter your name in place of John Doe.) 


CLEAR 

10 A$="5,7,C 18” 

20 NAME$= M JOHN DOE m 
30 PRINT NEWPAGE 
40 PRINT FIELDS A$:NAME$ 

50 END 

Remember that what you enter for NAMES can not have 
more than 18 characters. Now run the program: 



oi- I 
02- I 
03- I 
04- I 
05- | 
06-1 
07- I 


10 

-I- 


JOHN DOE 


20 

-I- 


RUN 

Your name should be displayed on the fifth line of the 
screen, starting in column seven. This placement of data on 
the screen is called full screen processing. 

Full screen processing allows you to use specific areas of 
the screen to input or display data. You specify the location 
of the data by defining fields. A field is one or more 
consecutive positions on the screen. 


When defining a field, you specify the line and column of 
the first position. In our example, 


10 A$="5,7,C 18" 
Line Column 


This field begins in line 5, column 7 of the screen. 
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Full screen processing 

Displaying or inputting one line of data (continued) 


The fields of the screen in full screen processing are similar 
to the fields of a record in a record I/O file. They both 
describe the location of data. 


Line 40 of your program could also look like this: 

40 PRINT #0,FIELDS A$ :NAMES 

Because the #0 is not necessary, we will not include it in 
any of the examples in this book. 


Let’s look again at the statement that describes the field. 


10 

/ 


A$= " 5, 


,C 18" 


Character Line Column Type of 
variable data- / 


The AS can be any character variable, including any element 
of a character array. 

This field begins in line 5, column 7 of the screen. 

The data item to be displayed is a character string of up to 
18 characters. As with data specifications in a FORM 
statement, C specifies a character string. 

You can also use N or PIC in a field definition. They have 
the same meaning that they have in a FORM statement. 
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What field would this statement define? 


60 FULLS( 1 ) ="11 ,24,N 7.2" 

It defines a field beginning in line 11, column 24. The data 
item would be a number with up to seven digits, with two 
digits to the right of the decimal point. 


Your turn! 


Where would the field defined by BS begin? 

80 B$="23,1,C 10" 

Answer: _ 

It would begin in line 23, column 1, the same place where 
the output from a regular PRINT statement begins. 

Let’s see what happens when we input your name from the 
field beginning in line 5, column 7. Enter the following: 

DEL 2 0 

40 INPUT FIELDS A$:NAME$ 


00010 LET A$="5,7,C 18" 
00030 PRINT NEWPAGE 
00040 INPUT FIELDS AS:NAMES 
00050 END 


List your new program: 

LIST 

Now run your program: 

RUN 
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Full screen processing 

Displaying or inputting one line of data (continued) 


1 10 20 

The NEWPAGE should clear the screen, and the cursor 
should now be positioned at line 5, column 7. Go ahead and 
enter your name. 

Note: The way you enter data with full screen processing is 
different from the way you normally enter data. With full 
screen processing, you press either the Field Exit key, the 
New Line key, or the Field Advance key after each input 
field to get to the next input field. You press the Enter key 
after the last input field on the screen. 

In this program, you are entering data from only one input 

r i i i— 

01- 1 

02- 1 

03- 1 

04- 1 

05-1 JOHN DOE 

06-1 

07- 1 

field. Therefore, you can press the Enter key after you type 
your name. 

Now enter: 

PRINT NAME 

to see that your name really did get input into the variable 
NAME. 

PRINT NAMES 

JOHN DOE 

Later in this chapter, we will show you how to write a 
program that uses more than one input field. Then, you will 
need to use both the Field Exit or Field Advance key and 
the Enter key. 
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Displaying or inputting several lines of data 






i 


I 



Now let’s look at an example that displays data on more 
than one line. Enter the following program. (Enter your 
name and address in lines 40-60. Notice that you are 
limited to a maximum of 18 characters for each variable.) 

CLEAR 

10 OPTION BASE 1 

20 REM DISPLAY NAME AND ADDRESS 
30 DIM FS$ (3)*8 
40 N$="JOHN DOE" 

50 S$="12 5 1ST ST." 

60 C$="CHICAGO, IL" 

70 FS $ (1)="3,4,C 25" 

80 FS $ (2)="4,4,C 25" 

90 FS $ (3)="5,4,C 25" 

100 PRINT NEWPAGE 

110 PRINT FIELDS MAT FS$:N$,S$,C$ 

120 END 

The statement in line 110 causes three lines of data to be 
displayed. The three fields are defined in the three elements 
of the FS$ array. 

FIELDS MAT FS$ tells your System/23 to use the elements 
of the FS$ array to define the fields for the items being 
displayed. N$ uses FS$(1). S$ uses FS$(2). C$ uses FS$(3). 

The first item to be displayed uses the first field defined in 
the array. The second item uses the second field, etc. If an 
array has more elements than the number of items being 
displayed, the extra elements are ignored. 

If you try to display more data items than the number of 
elements defined in the array, you will get an error. 
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Full screen processing 

Displaying or inputting several lines of data (continued) 


Now run the program: 

RUN 



Using our example name and address, the screen should 
look like this: 


10 


20 


30 


40 


50 


60 


70 


80 


r l-1-1-1--1-1-1-1-I-, 
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You’ve seen how to display data and how to input data by 
using full screen processing. Now let’s look at a program 
that does both. Enter the following: 



CLEAR 

10 OPTION BASE 1 
20 DIM A$(4),B$(3) 

30 A$(1) = " 5,10,C 8,U,N" 

40 A$(2)="10,4 , C 5" 

50 A$( 3)="13,4,C 7" 

60 A$ (4 ) = 11 16,4 , C 5" 

70 PRINT NEWPAGE 

80 PRINT FIELDS MAT A$:"EMPLOYEE","NAME:"STREET: " ,"CITY:" 
90 B$(1)="10,12,C 18,U,N" 

100 B$ (2) = M 13,12,C 18 , U, N " 

110 B$(3)="16,12,C 18,U,N" 

120 INPUT FIELDS MAT B$:NAME$,STREET$,CITY $ 

130 END 


You may have noticed that each of our full screen 
processing examples included a PRINT NEWPAGE. Use this 
statement to clear the screen before displaying data. 
Otherwise, the new data will be mixed up with whatever 
was on the screen before. 

When a normal PRINT statement is executed, the data is 


displayed on line 23. Then lines 2 through 23 are moved up 


up into lines 1 through 22, and line 23 is cleared. This 
allows the new data to be entered on line 23. 

When a PRINT FIELDS statement is executed, data is 
displayed on the screen in the specified location, without 
moving any data that is currently on the screen. 

Therefore, when you write a program that uses both PRINT 
and PRINT FIELDS, you may want to use NEWPAGE to 
separate non-full screen from full screen processing. 
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Full screen processing 

Displaying or inputting several lines of data (continued) 


When you run this program, four lines of prompts will be 
displayed. Remember that a prompt is a word or words on 
the screen that tell you what input is requested. 

For example, NAME:_tells you to enter your name. 

STREET:_tells you to enter your street address. 

The cursor appears where the next character will be 
displayed. When we tell you to run the program, enter your 
responses in the indicated fields. 

Remember to press either the Field Exit key, the New Line 
key, or the Field Advance key after each input field except 
the last. Press the Enter key after the last field. 

Before we run the program, let’s look at one more thing. 

We have added something to the field definition in line 30. 

Position 1 2 3 4 5 

30 A$( 1 ) ="5,10,C 10,U,N M 

This is different- t 

The U in the fourth position of the field definition tells the 
System/23 to underline the field. The N in the fifth position 
returns the screen to normal (no underline) where the field 
ends. This N is different from an N in the third position: 

A$ (1 )= ,f 10,12,N 7.2" 

N --- ' 

The N in the third position indicates a numeric data item. 
Remember that N 7.2 has up to seven digits, with two 
digits to the right of the decimal point. 
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Now run the program: 


l 


01- 

02 - 

03- 

04- 

05- 

06- 

07- 

08- 

09- 

10 - 

11 - 

12 - 

13- 

14- 

15- 

16- 

17- 

18- 

19- 

20 - 
21 - 
22 - 

23- 

24- 


L-l 


RUN 

When you finish entering your address, your screen should 
look something like this: 

10 20 30 40 50 60 70 80 

-I-I-I-I-I-1-1-H 


EMPLOYEE 


NAME: JOHN DOE 


STREET: IZS 1ST ST^ 


CITY: CHICAGO> IL 


-i-1-1-1-1-1-1- i_i 

10 20 30 40 50 60 70 80 
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Full screen processing 

Displaying or inputting several lines of data (continued) 


Let’s look at one of the input fields. 


, 1 2 , C 

Line Column Type of Underline Normal 
data 

This field begins in line 10, column 12. It will contain a 
character string of up to 18 characters. The U specifies 
underline, and the N returns the display to normal. 


The first data item entered is NAMES. It is entered from the 
first field that is defined, B$(1). STREETS uses BS(2), and 
CITYS uses B$(3). 


Your turn! 


Where does your street address begin on your screen? 

Answer: _ 

It should begin in line 13, column 12. 

Other full screen characteristics, in addition to U and N, are 
available on your System/23. Refer to "Full screen 
processing" in your Basic Language Reference manual for 
more information. 
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Chapter summary 


Full screen processing allows you to display data and input 
data in specific areas of the screen. Data items are 
positioned in fields, which you define in your program. 

When you define a field, you must include the line and 
column in which the field starts. You must also include the 
type of data item and any special characteristics. 

To display data with full screen processing, you enter 
PRINT FIELDS. To input data with full screen processing, 
you enter INPUT FIELDS. 

To input data with full screen processing, press either the 
the Field Exit key after each input field on the screen except 
the last. Press the Enter key after the last input field. 
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Full screen processing 


Exercises 


Question 1 


What would you enter on line 50 of the following program 
to display ENTER OPTION NUMBER beginning in line 4, 
column 12? 

10 DIM MSG$ * 19 
20 ABC$="4,12,C 19" 

30 MSG$="ENTER OPTION NUMBER" 

40 PRINT NEWPAGE 
60 END 

Answer: _ 


Question 2 


What would you enter on line 20 of the following program 
to display FEBRUARY 1 beginning in line 8, column 6? 

10 DATE$="FEBRUARY 1" 

30 PRINT NEWPAGE 
40 PRINT FIELDS FS$:DATES 
50 END 


Answer: 
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Question 3 


Using the numeric variable X, what would you enter on line 
30 to be able to input the value 100.05 from line 10, 
column 2? 

10 FS$="10,2,N 6.2" 

20 PRINT NEWPAGE 
40 END 


Answer: 


Question 4 


What will be displayed on line 11 of the screen if you run 
the following program? 

10 OPTION BASE 1 
20 DIM B$(2) *8 

30 DATA "11,3,C 5","11,9,0 6" 

40 READ MAT B$ 

50 D1$="DATE:" 

60 D2$="JULY 1" 

70 PRINT NEWPAGE 

80 PRINT FIELDS MAT B$:D1$,D2$ 

90 END 


Answer: 
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Full screen processing 

Exercises (continued) 


Question 5 


Using the character variable DS, what should you enter on 
line 60 to be able to input the value JULY 1 from line 5, 
column 8? 



10 OPTION BASE 1 
20 DIM B$(2) *7 
30 READ MAT B$ 

40 DATA "5,2,C 5","5,8,C 6" 

50 PRINT FIELDS BS(1):"DATE:" 
70 END 


Answer: 
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Answers 





Question 1 

50 PRINT FIELDS ABC$:MSG$ 

Question 2 

20 FS$="8,6,C 10" 

Question 3 

30 INPUT FIELDS FS$:X 

Question 4 

DATE: JULY 1 

Question 5 

60 INPUT FIELDS B$(2):D$ 
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Chapter 2. Organizing a program 


Introduction 


All of the programs you have written in this course have 
been solutions to problems. Without the programs, your 
System/23 can't do much more than a pocket calculator 
can. 

In this chapter, you will learn how to use your System/23 
and the BASIC language to solve problems. You will see the 
importance of breaking problems down into manageable 
parts and then organizing those parts in a program to 
produce a solution. 

One way to organize these parts is to use a flowchart. A 
flowchart is a diagram of a solution to a problem. A 
flowchart can be a very useful tool, because it helps you 
organize your thoughts in a logical fashion. 

Once your thoughts are organized, it is then much easier to 
write a program. 


Objectives 


Upon completion of this chapter, you should be able to do 
the following: 

• Identify the standard symbols used in a flowchart. 

• Draw a flowchart of a solution to a problem. 

• Write a program by translating a flowchart. 

• Recognize common programming methods. 

If you are familiar with these tasks, try the exercises located 
at the end of this chapter. If not, read through the chapter 
before going on to the exercises. 
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Organizing a program 

Solving a problem 


You have learned the fundamentals of System/23 BASIC. It 
is time now to advance from knowing BASIC to using 
BASIC to solve problems. The solution to a problem can be 
broken down into three main parts: 

• The input, or information required to produce the 
results. In the accumulated savings program, the input 
included the principal, the interest rate, and the number 
of years. 

• The processing, or manipulation of data to produce the 
results. This can include initializing variables and 
performing calculations. Processing turns input into 
output. In the accumulated savings program, the 
processing was the calculation of A=P*(1 +I)**N. 

• The output, or results. The primary reason for a 
program to exist is the output. In the accumulated 
savings program, the output was the amount of 
accumulated savings. 

Each of these three parts may consist of one or more 
statements. And, some short programs may have only one 
part, such as the output, in: 

10 PRINT "System/23 BASIC" 

20 END 

In recent years, another form of program organization has 
been designed. The chart used is called an "N-S" chart or 
a “star" chart, and it was designed by I. Nassi and B. 
Schneiderman. For more information, you can refer to 
"Flowchart Techniques for Structured Programming" in 
Volume 8 of the Association for Computing Machines, 
August 1973. 
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OD 



To organize the parts of a program, we use a flowchart. 
Here are the standard flowcharting symbols we will use in 
this course. These symbols are common throughout the 
computer industry. 

This is used to show where a program begins or ends. 


Processing 


This shows a program instruction to manipulate data or 
initialize values. 



On-page 


Off-page 


This shows a decision being made. Arrowheads will point in 
different directions depending on the results. 


This shows data to be input or output. It applies to both the 
display and data files. 


This shows printed output, such as a report. 


These two symbols show a connection between two 
separate sections in a flowchart. 



V 


Direction 


This shows direction from one symbol to the next. 
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Organizing a program 

Solving a problem (continued) 


Flowchart 


^ Start ^ 


Display 
a message 


( Stop 1 


Let's look at a few examples of flowcharts. First, consider 
the first program we wrote in this course. It was a short, 
simple program to display THIS IS EASY. 

If you had been given this problem, how would you solve it? 
The first thing you do when you solve a problem is break 
the problem down into manageable parts. In this problem, 
you are only concerned with output. You want to display a 
message. 

Let's organize the problem in a flowchart. This flowchart is 
short and simple. It looks like this: 

Program 


10 PRINT "THIS IS EASY" 


20 END 
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Flowchart 



Some people prefer to draw flowcharts that contain actual 
program statements and formulas. This flowchart could also 
look like this: 

Program 


10 PRINT "THIS IS EASY" 


20 END 


You can use whichever method you prefer: general 
instructions or specific statements. Just make sure that you 
draw flowcharts that you can understand and use. 

This problem was a simple problem with a simple solution. 
Most of the problems you will be solving with your 
System/23 will not be so simple. Let's look at a more 
complicated example. 
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Organizing a program 

Solving a problem (continued) 


Flowchart 


^ Start ^ 


Input the 
principal 




Input the 
interest rate , 


£ 


Input the 
number of 
years 


2l 


Calculate 
the savings 


5 ! 


Display 
the results 


^7 

^ Stop ^ 


Do you remember the accumulated savings problem? This 
problem has input (principal, interest rate, and number of 
years). It has output (accumulated amount). And it has 
processing (calculation of accumulated amount). What does 
the flowchart look like for this problem? 

Program 


10 

P= 1 00 




or 



10 

PRINT 

"ENTER 

PRINCIPAL" 

15 

INPUT 

P 


20 

00 

o 

II 

H 

- 



or 



20 

PRINT 

"ENTER 

INTEREST RATE" 

25 

INPUT 

I 


30 

N=2 




or 



30 

PRINT 

"ENTER 

YEARS" 

35 

INPUT 

N 


40 

A=P*(1+1)**N 



50 PRINT A 

60 END 
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We have shown two programs for this problem. The only 
difference between them is the method used to input your 
values. There is no set solution to any problem. You must 
use the statements and methods that seem best to you. We 
could have written a program that reads a file in two 
different ways: 

Flowchart Program 



10 OPTION BASE 1 

20 DIM NAME!*25,ADDRESS?*65 

30 OPEN #1:"NAME=CUST",INTERNAL,OUTIN 

40 FOR 1=1 TO 2 
or 

40 1=0 

50 READ #1,USING 60:NAME$,ADDRESS! 

60 FORM POS 1,C 25,POS 26,C 65 


70 PRINT USING 60:NAME!,ADDRESS! 


80 NEXT I 
or 

80 1= 1+1 

82 IF I<2 THEN GOTO 50 


90 END 
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Organizing a program 

Going from a flowchart to a program 



Suppose you were asked to write a program to balance a 
checkbook. Where would you start? The first thing you 
should do is draw a flowchart. 

In the first part of your program you should include a 
remark that tells what the program does. 


Next, you should include instructions for when you run the 
program. These instructions should be displayed on the 
screen. 


The first data item required is the old account balance. 


Now you are ready to adjust the balance for any deposits or 
withdrawals. Set up a loop to process each transaction. 


Display a prompt to enter the amount of each check or 
deposit or withdrawal.Branch out of the loop when you 
enter 0 for the amount. 


If you enter any amount other than 0, add the amount to 
the balance. 


Display each new balance on the screen, and then ask for 
the next transaction. 
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The hard part is done. You have organized each part of the 
program in a flowchart. Now all you have to do is translate 
the flowchart into BASIC. One possible solution would be 
as follows: 


CLEAR 

10 ! PROGRAM TO BALANCE A CHECKBOOK 

20 PRINT "ENTER DEPOSITS AS POSITIVE NUMBERS" 

30 PRINT "ENTER CHECKS, CHARGES, WITHDRAWALS AS NEGATIVE" 
40 PRINT "ENTER AN AMOUNT OF 0 TO END THE PROGRAM" 

50 PRINT 

60 PRINT "ENTER OLD ACCOUNT BALANCE" 

70 INPUT BALANCE 

80 PRINT "ENTER CHECK OR DEPOSIT" 

90 INPUT X 

100 IF X=0 THEN STOP 
110 BALANCE=BALANCE+X 

• 120 PRINT "NEW BALANCE^ ";BALANCE 
130 PRINT 
140 GOTO 80 
150 END 
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Organizing a program 


Going from a flowchart to a program (continued) 



Your turn! 


Now we want you to try it. Draw a flowchart for this 
problem. 

Add the odd numbers from 1 through 15. Display the total. 

We will help you with this problem by supplying the 
required flowchart symbols. You will also find helpful notes 
beside each symbol. Just fill in the instructions in each 
symbol. 

The standard symbol to show the beginning of a program is 

<zz>. 

The first number to be added is 1. You should initialize 
some variable to 1. Use the variable NUMBER. 

o 

To add numbers one at a time, you can use the formula 
SUM = SUM + NUMBER. 


You want to keep adding until after NUMBER equals 15. 
Test the value of NUMBER. If it is less than 15, add 2 to 
NUMBER and go back to SUM = SUM + NUMBER. 



If NUMBER is greater than 15, stop adding and display the 
sum. 


The standard symbol to show the end of a program is 

CD 
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Going from a flowchart to a program 


Here's our solution and a program that performs the 
indicated instructions. 


General instruction flowchart 


or Specific statement flowchart 




10 l PROGRAM ADDS ODD NUMBERS 1-15 

20 NUMBER=1 

30 SUM=SUM+NUMBER 

40 IF NUMBER>=15 THEN GOTO 70 

50 NUMBER=NUMBER+2 

60 GOTO 30 

70 PRINT SUM 

80 END 
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Organizing a 

program 

Inputting data 

You have already seen that one problem can have more 
than one solution. How do you decide which programming 
method to use in a program? There is no set answer. But 
here are some suggestions to keep in mind. 

Whenever a program requires input data, you need some 
way to get that data into the computer. The most common 
methods are: 

• Make the data a part of the program. You can do this 
with LET statements or READ and DATA statements, 
like this: 

5 DIM M$(12) 

10 LET X=10 

20 DATA "JANUARY","FEBRUARY","MARCH” 
30 READ M$(1),M$(2),M$(3) 

Either of these methods can be used when you know 
the data values when you are writing your program, and 
the values are not changing. 

• Enter the data from the keyboard as you run the 
program. You can do this with INPUT statements, like 
this: 


100 PRINT "ENTER NAME" 

200 INPUT N$ 

300 Z$="12,5,C 15" 

400 PRINT FIELDS Z$: "ENTER ADDRESS" 
500 INPUT FIELDS "13,5,C 18,U,N":A$ 

This method can be used when the data may change 
each time you run the program. Remember to use 
prompts on the screen to tell you what input is required. 
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Read the data from a data file as you run the program. 
You can do this with READ statements, like this: 

1000 READ #1,USING 50:X,Y,Z 
2000 READ #3,REC=4:A$ 

This method can be used when you have a lot of data, 
and when the same data may be required more than 
once or by more than one program. 


Organizing a program 
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program 

Outputting data 



After a program produces results, you must have some way 
to access those results. Your program must produce output 1 
so you can access those results. Three common methods to 
output data are: 

• Display the results on the screen. You can do this with 

PRINT statements or PRINT FIELDS statements, like 
this: 

100 PRINT "THE NAME IS ";NAME$ 

200 PRINT FIELDS MAT A$:X,Y,Z 

This is a good method when you do not need a copy of 
the results on paper. The results are lost when the 
screen is cleared. 

• Print the results with your printer. You can do this with 

PRINT #255 statements, like this: 

10 PRINT #255:COST,NUMBER,TOTAL 

20 PRINT #255:NEWPAGE,HEADING$ * 

This is a good method to use when you want a copy of 

the results on paper, such as in a report. * 


o 
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• Write the results to a data file. You can do this with 
WRITE statements, like this: 

10 WRITE #1:A,B,C 
20 WRITE #3,USING 50:N$,A$ 

This is a good method to use when you want to keep 
the data and update it later. You cannot see the output. 
Instead, it is stored in a file on your diskette. Some 
typical uses include customer lists, account balances, 
and inventories. 
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program 

Processing data 



The processing part of a program is usually the most 
complicated part. It includes statements that initialize 
counters, perform calculations, test values, and direct 
program control. 

Often you need to perform the same job several times in a 
program. This is especially true when you want to produce a 
chart or report. It was also true when we wrote the program 
to balance a checkbook. Here are three common methods 
to repeat operations in a program: 

• Use a function. You can use a function to perform the 
same calculation on different variables, like this: 

10 DEF FNT(X)=(1+.06)*X 

20 DEF FNM(X)=(1+.40)*X 

These functions, or similar functions, can be used to 
find the cost of an item plus sales tax, or to find the 
value of an item with a percentage markup. 

• Use a FOR/NEXT or IF/THEN loop, like this: 

10 FOR X=1 TO 90 

20 IF LINES <30 THEN GOTO 50 

30 PRINT #255:NEWPAGE 

40 LINES=0 

50 PRINT #255:A(X),P(X) 

60 LINES=LINES+1 

70 NEXT X 

This example uses a FOR/NEXT loop to print 90 lines 
of output. An IF/THEN loop controls paging, allowing 
only 30 lines per page. 
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Use a subroutine. You can use a short program section, 
like this: 


10 GOSUB PAGEOUT 
20 PRINT A$,A(X) 
30 LI=L1+1 


700 GOSUB PAGEOUT 
710 PRINT B$,B(X) 


f 


8000 PAGEOUT: IF LI<30 THEN GOTO 8040 
8010 PRINT #255:"PAGE NUMBER ";P1 
8020 P1=P1+1 
8030 LI=1 
8040 RETURN 

This example controls paging with a simple subroutine. If 
you place a subroutine near the end of a program, it is 
easier to trace actual calculations in a program listing. 

Here's another example of how you can use a subroutine. 
The following program reads names and addresses from the 
CUST file we created in Book VI. It prints the names and 
addresses on labels with pre-printed return addresses. 

This program is designed for 3-inch forms. These forms are 
designed to be printed with the printer set for six lines per 
inch. You can order forms from a computer supply store, or 
you can run the program with plain paper. 

If you want to print these labels, enter this program: 
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Processing data (continued) 


CLEAR 

10 OPEN #1:"NAME=CUST",INTERNAL,INPUT 

20 DIM N$*20,S$*20,C$*20 

30 FORM POS 1,C 20,C 20,C 20 

40 FORM SKIP 8,POS 7,C 20 

50 FORM POS 7,C 20 

60 FORM POS 7,C 20,SKIP 7 

70 PRINT BELL 

80 PAUSE 

90 PRINT #255:HEX$("2B0205000A1042") 


100 

FOR X= 

1 TO 4 



110 

READ #1,USING 

30 

:N$,S$,C$ IOERR 190 

120 

GOSUB 

150 



130 

NEXT X 




140 

STOP 




150 

PRINT 

#255,USING 

40:N1$ 

160 

PRINT 

#255,USING 

50:S1$ 

170 

PRINT 

#255,USING 

60:C1$ 

180 

RETURN 




190 

PRINT 

"ERROR 

IN ] 

DATA FILE" 

200 

PRINT 

"FREE CUST 

FILE AND" 

210 

PRINT 

"RERUN 

PROGRAM TO CREATE FILE 

220 

END 









Before you run this program, notice the IOERR in line 110. 
If your CUST file was incorrectly entered, you will get an 
error. If so, free your CUST file and rerun the program that 
creates the file. Change the paper in your printer, and then 
enter RUN: 


RUN 


When the asterisks appear on the screen, set the paper in 
the printer to top of form, and enter: 

GO 
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First Class 
Mail 
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Organizing a program 2-19 



















Organizing a program 

Chapter summary 


The solution for a problem can be broken down into three 
main parts: 

• The input, or information required to produce the results 

• The processing, or manipulation of data to produce the 
results 

• The output, or results 

The three parts of a program must be organized to form a 
solution. A flowchart is a diagram of the solution to a 
problem. 

The most common methods of entering data are to enter 
the data from the keyboard, to make the data a part of the 
program, or to read the data from a file. 

Processing in a program includes initializing variables, 
performing calculations, testing values, and directing 
program control. Some common processing methods for 
repeating operations include loops, subroutines, and 
functions 

The most common methods of outputting data are to 
display the data on the screen, to print the data with the 
printer, or to write the data to a file. 
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Exercises 



Question 1 

Match the following flowchart symbols with their meanings. 

a. Processing of data 

b. Input or output data using display or data file 

c. Making a decision 

d. The beginning or end of a program 

e. Printed output 

Question 2 

Using three symbols, draw a flowchart for this problem: 
Print the letter A with your printer. 

Answer: 
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Exercises (continued) 


Question 3 


Write a program with line numbers 10 and 20 by using the 
flowchart you drew in Question 2. 

Answer: _ 


Question 4 


Match the following programming statements with their 
common uses. Each letter can be used more than once. 


_LET 

a. 

input data 

_INPUT 

b. 

output data 

_PRINT #255 

c. 

repeat an operation 


_FOR and NEXT 

_DEF 

_READ #5 

_IF and THEN 

_WRITE #10 
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Answers 


Question 1 


2 a. 
5 b. 
1 c. 

3 d. 

4 e. 


Question 2 
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Answers (continued) 


Question 3 


10 PRINT #255:"A" 
20 END 

Question 4 


a LET 
a INPUT 
b PRINT #255 
c FOR and NEXT 
c DEF 
a READ #5 
c IF and THEN 
b WRITE #10 
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Chapter 3. Programming examples 


Introduction 





In this chapter we present three example programs. These 
programs use all of the information you have studied in this 
course. Therefore, you should find them useful for review 
and future reference. 

We think you will find it useful to enter and run these 
programs. Entering these programs on your System/23 and 
working with them will give you the practice and experience 
all beginning programmers need. 

The first program is the easiest. The second program builds 
on the first, and the third program builds on the first two 
programs and is the most complex. If you enter and run 
these programs as they are presented, you will have a good 
foundation to build upon in Chapter 4. 
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Programming examples 

Example 1 


Program example 1 records names and addresses and 
stores them in an array. After you enter the last name and 
address, a customer information list is printed. 

The program uses full screen processing. It displays six 
prompts for you to enter data. If you enter and run this 
program, the first screen will look like this: 




NAME (last name first) 

Street Address! _ 

City.' _ 

State! _ 

V ip Code: _ 

Telephone Numbers 


n 


Input all items usino Field Fxit before enterinq. 
Press Enter with no input data to Print report. 
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You should press the Field Exit key after you enter the 
name, street address, city, state, and zip code. After you 
enter the telephone number, press the Enter key. 

After you have entered all of your data, press the Enter key 
again. Then, you will get a formatted printout of all the data 
stored in the array. Your printout should look something like 
this (this copy has been reduced): 



r. II S T n M F 

R T N F 0 R M A T 

T 0 N 

1 T S T 


NAME 

STRFFT ADDRESS 

T TTY 

STATE 

ZIP nODE 

PHONE NUMBER 

General Systems 

4111 Northside Pkuy 

Atlanta 

GA 

30377 

73R-2000 

Offi cp Products 

400 Parsons Pond Dr - 

Frank 1t n Lakes 

NJ 

07417 

840-1900 

fipnet ai Business 

1133 Westchester Ave 

White Plains 

NY 

1 0604 

696-1900 
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Programming examples 

Example 1 (continued) 


00010!*#****# INPUT AND PRTNT ARRAY ******* 

00020 OPTION RASE t 

00030 DTH NAHEi(50>*20,AIiDRi<50>*20,C]TYi(50)*?O.STATF$(50)*3,ZIPt(50)#5 

00040 DIM PHONE!(50)*8 

00050 DIM Li(8)*9,Hi(6)*13,l»<8>*50 

00060 DATA "6,5,c 50","7,5,c 50","8,5,c S0","9,5,c 50","JO,5,c 50","11,5,c 50" 
00070 DATA "14,5,c 50","15,5,c 50" 

00080 READ HAT Lf 

00090 DATA "6,36,c 20,u,it",”7,28,c 20,u,it","8,18,c 20,u,n","9,19,c 3,u,n" 

00100 DATA "10,22,c 5,u,n", H 11,30,c 8,u,it" 

001 JO READ HAT Hi 

00120 LET Did)="Enter NAHE (last name first):" 

00130 LET Dt(2)=" Street Address:" 

00140 LET Di(3)=" City:" 

00150 LET Di(4)=" State:" 

00160 LET 0$<5)=" Zip Code:" 

00170 LET Gi(6>=" Telephone Number: 

00180 LET Di(7)="Input all ite«s usinp Field Exit before entering." 

00190 LET Di(8)="Press Enter with no input data to print report." 

00200 LET S=17 

00210 LET C=0 









o < 


t 
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Lines 

Description 

00010 

The first line is a remark. You can change this statement to 
any comment that will help you identify the program. 

00020 

OPTION BASE 1 specifies that the lowest array subscript 
allowed is 1. If you leave this line out, the beginning array 
subscript is 0. 

00030-00050 

These lines dimension the arrays for the data items and full 
screen processing. Notice that these are all character 
arrays. 

00060-00080 

Line 80 reads the data in lines 60 and 70 into array L$. 

These describe the fields used in the full screen processing 
to display the prompts. 

00090-00110 

Array M$ contains the data to describe the input fields. 

00120-00190 

Array D$ contains the prompts for full screen processing. 
Notice that we are using the LET statement to assign values 
to this array. 

00200 

S is used to set the left margin for the printed report. You 
may want to change this value. 

00210 

The numeric variable C will be used to count the number of 
customers. Here we initialize it to zero. 

Note: This line is not necessary, since System/23 will 
automatically initialize variables to zero for you. 

Notice that we have used two different methods to assign 
values: the LET statement and READ/DATA. These 
statements are covered in Books 1 and II. 
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Programming examples 

Example 1 (continued) 


00230 PRINT NEHPAGE 
00240 PRINT FIELDS HAT U:HAT 
00250 LET C=C+1 
00260 INPUT FIELDS HAT H*;NAHE«C) ,ABBRf<C). 
00270 IF NAH£$(C)=RPT$(" u ,70> THEN GOTO 300 



,STATF$<C),ZJP*(C>;PHONF*<C) 
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Lines 



i 


00220 

00230 

00240 

00250 


00260 



00270 


00280 



Description 

This remark tells you that this is the part of the program 
where you put information into the array. 

This line clears the screen. You will want to start with a 
clear screen before full screen processing. 

This line displays the prompts. 

Here we add 1 (one) to the number of customers. This 
number is used as the subscript in the data arrays. 

This line inputs data from the screen into the data array 
elements. Remember that you press the Field Exit key after 
each input field to get to the next input field. You press the 
Enter key after all of the data has been entered. 

This line checks to see if any more data is to be inputted. If 
you press the Enter key without entering a name, program 
control goes to line 300. 

If you enter a name and other data, the data is stored in the 
arrays, and program control goes to the next statement, line 
280. 

This line sends program control back to line 240. There, the 
prompts are displayed again, and you are ready for more 
input. 

You studied the IF-THEN and GOTO statements in Book II. 
READ MAT is covered in Book IV, and you learned about 
full screen processing in Chapter 1 of Book VII. 
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Programming examples 

Example 1 (continued) 


00290 RFH —---PRINT ARRAY 

00300 GOSUR OVERFLOW 
00310 FOR X=1 TO C-l 

00320 PRINT t?55:TAB(S) ;NAHF4(X) ;TAB(S+21) ;AFHiRi(X) ;TAR(S+42);CITYi(X); 

00330 PRINT *255:TAR(S+43);STATE *( X);TAR<S+74):ZIP*(X);TAB<S+Rfi>; PHONEi ( X) 

00340 LET 11NF1=LINF1+1 

00350 IF LINE1>40 THEN SOSUB 390 

00360 NEXT X 
















^ Lines 

Description 

00290 

This remark statement starts the section that prints the 

► 

report. 

00300 

This statement sends control to the OVERFLOW subroutine. 

> 

Notice that we are using the label OVERFLOW instead of 
the line number 390. 

00310 

This statement starts a FOR-NEXT loop. The loop prints the 
information for the array elements with subscripts of 1 to 
C-1. C-1 is the number of elements in each array, because 

i 

C is incremented in line 250, before the value of NAMES is 
tested in line 270. 

00320-00330 

¥ 

> o 

These lines print (on the printer) the information in the 
arrays. If you do not have a printer, you should leave out 
the #255: and change the 17 to a 1 in line 200. Or, you can 
run the program by using the RUN DISPLAY command. 

Then, the results will be displayed instead of being printed. 

00340 

This statement keeps track of the number of lines printed 
on each page. Every time a line is printed, LINE1 is 
incremented by 1. 

00350 

This statement sends program control to the OVERFLOW 
subroutine (line 390), if you print more than 40 lines of 
information. 

•» 00360 

NEXT X causes the loop to execute again, until all of the 
information in the arrays is printed. 

• 

You learned about FOR-NEXT loops in Book II. Subroutines 

> C 

are covered in Book V. 
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Programming examples 

Example 1 (continued) 


00370 STOP 
00380 REH 
00390 OVERFLOW: PRINT ttS^NEWPAGE 
00400 PRINT *255:TA»(45) 

00410 PRINT 5255? 

00470 PRINT t?55 '• 

00430 PRINT *255:TAF(S); 

00440 PRINT t255:TAB(S+6 
00450 PRINT t?55: 

00460 LET LTNE1=0 
00470 RETURN 
00480 END 



o < 


f 


O ( 


o < 
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Lines 


Description 


> O 

00370 This line stops the program after the report. 

00380 This remark starts the OVERFLOW subroutine. This 

subroutine is used to start a new page. 

% 

00390 This line skips to a new page on the printer. 


00400-00450 


l 

) o 


00460 

00470 


These lines print the title and headings at the top of the 
page. Notice how we use tabs to leave spaces between the 
columns. This makes the report easier to read. 

This statement sets the line counter (LINEl) to 0. LINE1 is 
used to limit the number of lines on a page to 40. 

The RETURN statement sends program control back to line 
310 or line 360. This RETURN statement marks the end of 
the OVERFLOW subroutine. 


00480 The END statement tells your System/23 that it has 

reached the end of your program. 


t 

) c 
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Programming examples 

Example 2 


Program example 2 is similar to example 1. However, 
program example 2 creates a file on diskette and stores the 
data in the file. This program is written to use diskette drive 
1. If you are using another diskette drive, you will have to 
modify your OPEN statement. 



Because this program performs almost the same functions 
as example 1, we will describe only the new lines in 
example 2. Again, we have numbered the lines in 
increments of 10. Because example 2 has more lines, the 
line numbers in this example will not match the line 
numbers in example 1 exactly. 


As in example 1, the following screen is used for data input. 
It looks like this after you input each data item. 


Enter NAHF (last namp first): ftp ner a I P u s i ness 

Street Address: Westchester Ave 

City! White P1 ains _ 

State: NY 

7 i p Code: 3 0604 

Telephone Number: 496~1900 


Input all i 1 ems »i s i nq Field Ft i t before enter i nq. 
Press Enter with no input data to print report.. 





O ( 


* 


l 


O ( 
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> o 


00010 ! #«**#** INPUT, PRINT AND 8'IGRE ARRAY ***#*«# 

00020 OPTION RASE t 

000X0 DIH NAME!(50)*20,ADDRI(SO) *20, C1T YM 50) *20, RTA1 EM 50 > *3 > 71 PM50)*5 

00040 OIH PH0NEM50)*8 

00050 DIM LM8)*9,MK6)*13,BMft)*50 

00060 DAI A "6,5,c 50V?,5,c 50V'8,5,c 50","9,5,c 50","JO,5,c 50","11,5,c 50" 
00070 DATA "14,5,c 50","15,5,c 50" 

00080 READ MAT I $ 

00090 DATA "6,36,c 20,u,n","7,?8,c 20,u,n","8,18,r ?0,u,n",”9,19,r 3,u,n" 

00100 DATA "10,22,c 5,u,n","ll,30,t 8,u,n" 

00110 READ HAT HI 

00120 LET DM 1 )="£nter NAME (Iasi name first) 

00130 LET DM2)=" Street Address:" 

00140 LET DM3)=" City:" 

00150 LET DM4 )=" State:" 

00160 LET DM5)*" Zip Code:" 

00170 LET DM6)=" Telephone Nu«ber: 

00180 LET DM7)="Input all items using Field Exit before entering." 

00190 LET DM8)="Press Enter with no input data to print report." 

00200 LET S=17 

00210 LET C=0 

00220 REM-'-CREATF ARRAY 

00230 PRINT NEWPAGE 

00240 INI.OOP: PRINT FIELDS MAI LMHAT D* 

00250 LET C=C+l 

00260 INPUT FIELDS MAT HI:NAHEMC) ,ADDRMC) ,CITYMC) .STATEMC) ,7IPMC),PHONEME) 
00270 IF NAHEMC)=RPTM" ",20> THEN GOTO STORE 
00280 GOTO INLOOP 


t 

> o 
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Programming examples 

Example 2 (continued) 


00290 


00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 


REH - STORE DATA ON DISKETTE 

STORE: OPEN «i"NAH€= master//I,SI7E= 0,RFCL= 100",INTERNAL,OUTPUT 
FOR X=i TO C-J 

WRITE $1 .USING 330:NAME*(X) ,ADDR$(X) ,CITY$(X) ,STATF»(X> ,ZIPt(X) ,PH0NE$<X> 
FORM 3*C 20,C 3.C 5,C 8 
NEXT X 
CLOSE $i: 

REH -— -PRINT ARRAY 

GOSUB OVERFLOW 
FOR X=I TO C-J 


PRINT $255:TAB(R};NAMF4(X);TAB(S+?1):ADDRi(X>)TAB(S+42>SfITY«X)i 


PRINT J255:TAB(S+63);STATF4{X>;TAB(S+74);7IP«(X);TAB(S+R8),*PHnNF*(X) 
I FT t IHEl=t 1NK J + 1 
IF LINE1>40 THEN GOSUB 460 
NEXT X 
STOP 

RFH-PAGF OVFRFl OW ROUTTNF 

OVERFLOW: PRINT $255:NEWPAGE 



PRINT t255:TAB(45) !"C U S T f! H F R INFORMATION LIST" 


PRINT $255: 

PRINT *255: 

PR INT $255:TAB(S)J"NAME"ITAB(S+21> 5"STREET ADDRESS"ITAB(S+4 2)j"CITY"j 
PRINT $255:TAB(S+43) .‘"STATE" ;TAB(S+74) :"ZIP CODE";TAB(S+88);"PHONE NUMBER" 
PRINT $255: 

LET LINE1=0 
RETURN 
FND 



o < 


O ( 
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Lines 

00290 

4 

00300 



► © 


00310 

00320 

00330 

00340 

00350 


# 


Description 

This remark statement lets you know that this part of the 
program creates your data file. 

This line opens the file called MASTER on diskette drive 1. 
Remember, if you are using drive 3, you will need to enter 
MASTER//3. 

This file is a new, internal file, opened for output only. 

This FOR-NEXT loop continues until all of the records are 
written to the MASTER file. 

This line writes the array elements to the file. Notice that 
the subscripts of the array elements are specified by the 
variable X, from the FOR statement. 

This line tells your System/23 how to write the data to the 
file. Notice the repetition factor on the C 20 specification. 

This NEXT statement completes the loop in lines 310-340. 

This statement closes the MASTER file while you are still 
running the program. 

You may want to go back to Book VI at this point to review 
what you have learned about data files. If not, go on to the 
next example. 


> O 
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Programming examples 


Example 3 


Program example 3 adds more features to examples 1 and 
2. It is much longer, and you should enter the lines 
carefully. 

Examples 1 and 2 allowed you to do certain tasks, but 
always in a certain order. Program example 3 allows you to 
perform additional tasks, and it lets you change the order to 
suit your needs. You can change the order by using a menu. 

As in example 2, you will be able to create records and 
store them in a data file. You will also be able to update, or 
change the records you have created. 

« 

Example 3 again allows you to create a file called MASTER. 

So, if you want to run this option, you may first have to free 
the file you created in example 2. 

As with example 2, we will only describe the new lines in 
this example. The menu will look like this: 




Joh : MATN MFNH 

Options A v x i I a h I p; 

1, CrpatP MASTFR FiI p 
2 . I nq u i v p T h a ms 
3. FT int MARTFR Fi Ip 
A , * End Ft oqr<sm 

F liter Option No. ? 
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> o 


The INQUIRE screen looks like this: 



Job : INQUIRE 




Record Number; 


OPERATION <l=add, 2=update> ^==delete, 4=return): 


r 





4 



On this screen you enter the number corresponding to the 
operation you want to perform. For example, if you wanted 
to add a new record to the file, you would enter a "1" after 
OPERATION. If you want to update (2) or delete (3) a 
record, you would also need to enter the relative record 
number of the record to be changed or deleted. 

The screens that allow you to add records or change 
records are similar to the screen used in examples 1 and 2. 


* 
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Programming examples 

Example 3 (continued) 


00010 ! »*#***# INPUT.PRINT,STORE» AND UPBftTE FILE ****#«# 

00020 OPTION BASF 1 

00030 DIM NAHE$(ti0)#20,ADBRI(50)fc?0,CITY$(5O)*20.,S1AfF«(S01*3.7IPi(50)«f. 

00040 DIM PH0NE$(50)*8 

00050 DIM I$(8)*9,Hi(6)#J3,Bi(8)#50 

00060 DIM Ni<3>*9,0$(2)*t3,Ai(6)*48,8$(7)#22,Ki<7)*lO 

00070 DATA "6,5,c 50","7,5,c 50V8,5,c 50","9,5,r 50VJ0,5,c 50","11,5,c 50" 
00080 DATA "14,5,c 52","15,5,c 50" 

00090 READ MAT U 

00100 DATA "6,36,c 20,u,itV'7,28,r 20,u,n","8,18,r ?0,«,n","9,19,c 3,u,n" 

00110 DATA "10,22,c 5,«,n","ll,30,c 8,u,n" 

00120 READ HAT Mi 

00130 DATA "4,20,c 48","5,5,r 48","14,5,t. 48" 

00140 READ MAT N$ 

00150 DATA "5,21,n 4,u,it","14,55,n l,u,n" 

00160 READ MAT 0$ 

00170 DATA "4,20,t 22","6,25,c 22","8,25,r 22","9,25,c 22","10.25,r 22" 

00180 DATA "tl,25,c 22","13,25,c 22" 

00190 READ HAT Ki 

00200 LET A$(l)="Record Number:" 

00210 LET A$(2)="0PERATI0N (J=*dd, ?=uodate. 3=deietp. 4*ret#rn>:" 

00220 LET Ai(3)=".Job: INQUIRE" 

00230 lEl Ai(4)="Job! ADD RFDfiRD" 

00240 LET Ai(5)="Job: UPDAfE RECORD" 

00250 LET Ai(6)="Job! CREA1E MASTER" 

00260 LET Bt(l)="J9b: HAIN MENU" 

00270 LET Bi»2)-' ! 0e>Tion5 Avaiiahie;" 

00280 LET Bi(3)="l. Create MASTER File" 

00290 LET Bi(4)="2. Inquire Items" 

00300 LET B$(5)="3. Print MASTER File" 

00310 LET Bi(6)="4. End Program" 

00320 LET B$(7)="Enter Option No. ?" 


O < 
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Description 

This line dimensions more arrays for the menu screen in full 
screen processing. 

Here the data is read into the new arrays for full screen 
processing. MAT N$ will display the INQUIRE screen, 
including the job name. MAT 0$ is used to input data on 
the INQUIRE screen, and MAT K$ is used to display the 
menu. 

The first two of these lines are prompts. The next four are 
displayed on the screen to tell you which job you are 
performing. 

These lines define the B$ array. Array B$ contains the 
prompts for the menu screen. 

Note: You can enter all of lines 200-420 without the word 
LET. But, the word LET will be inserted when you list the 
program. 


i o 


> 


Lines 

00060 


00130-00190 


00200-00250 


00260-00320 


► 
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Programming examples 

Example 3 (continued) 


00330 LEI J )="F.nter NAHF (last ramp first)!" 

00340 LET 0t(2)=" Street Address:" 

00350 LET M(3)=" City!" 

00360 LET W(4)=" State:" 

00370 1ET Dt(5)=" ?irCode!" 

00380 LET 0i(6)=" Telephone Number: 

00390 LET Dt(7)="Input all iteas using Field Fxit beforp entering." 
00400 LET Di(8)="Pres'; Enter with no data to return to MAIN MENU." 
004JO LET S=17 

00420 LET C=0 

00430 REH - DISPLAY MENU 

00440 PRINT NEWPAGE 

00450 PRINT FIEl OS HAT K$ i HAT 

00460 INPUT FIELDS "13,42,n 1":G 

00470 ON G GOSUfi CREATE,INQUIRE,REPORT,ENDHENU NONE 450 

00480 GOTO 440 

00490 EHDHENII: PRINT NEUPAGF,"Returned to BASIC" 

00500 STOP 


O ( 
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Lines 

00450 

00460 

00470 


00480 

» 


00440 

i O 


Description 

This line displays the menu on the screen. 

This is the line where you input the number of the job you 
want. You input the job number in the variable G. 

This is a computed ON GOSUB, which you learned about in 
Book V. The value of G determines which subroutine you 
use. 

The subroutines return to here. Then program control goes 
back to line 440, where the screen is cleared, and you can 
enter another job. 

This message is displayed before the program stops (line 
500). ENDMENU is a label. 
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Programming examples 

Example 3 (continued) 


00510 REH-CRFATF ARRAY 

00520 CREATE: OF'FN 51: "NAHF=Mster//l ,SI7E=0,RECI =100" . TNTFRNAI .OUTPUT I0FRR 1280 

00530 PRINT NFWPAGE 

00540 PRINT FIELDS HAT Nf:A$<6) 

00550 INLOOP: PRINT FIELDS HAT Li:HAT D$ 

00560 LET C=C+t 

00570 INPUT FIELDS HAT H$:NAHF$(C),ADDR$<C>,CITYf(C) ,STATF$(C>,7IP$(C).PHONEKC) 
00580 IF NAHE<(C)“RPT$<" ",20) THEN GOTO STORE 
00590 GOTO 1NI.OOP 

00600 REH-STORF DATA ON DISKETTE 

006tO STORE: FOR X=1 TO C-l 

00620 WRITE SI,USING 630:NAHE*(X)-ADRRilX),CITYi(X),STATEi(X>.ZlPi(X),FHONE$(X) 
00630 FORH 3*C 20,C 3,C 5,C 8 
00640 NEXT X 
00650 CLOSE SI: 

00660 RETURN 

00670 REH----1NOUIRE 

00680 INQUIRE: OPEN St:"NAHE= «aster//l",INTERNA! ,OIJT£N,RELATIVE 
00690 PRINT NEUPA6E 

00700 PRINT FIELDS HAT Nl:A*<3>,Af<1),A*(2) 

00710 INPUT FIELDS HAT Of 101,62 

00720 ON Q2 GOTO ADD,UPDATE,DILFTF,ENDING NONE 690 

00730 ENDING: CI.OSF S!: 

00740 RETURN 


O i 
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Lines 


Description 


> • 

00530-00540 

m 

00550-00650 

00660 

00680 


4 


► 


00700 

00710 


00720 


00730 


00740 

% 

> O 


These lines display a description of the job being 
performed. This is the subroutine to create the master file. 

These lines are just like examples 1 and 2. 

This is where we return from the CREATE subroutine. 

This line opens the file MASTER on drive 1. The file is 
opened with OUTIN, which allows both OUTPUT and 
INPUT. 

This is the start of the INQUIRE subroutine used to check 
on a record. 

The prompts for operation and record number are displayed. 

You input the action you want to perform and the record 
number, if required. 

This is a computed GOTO. The action you want to perform 
directs program control to specific line numbers. 

Notice the spelling DILETE. Because DELETE is a reserved 
system keyword, we can not use DELETE as a label. 

You close the file before returning to the MAIN MENU from 
the subroutine. 

This line sends control back to the menu, at line 480. 
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Programming examples 

Example 3 (continued) 


00750 REM---ADIi RECORD 

00760 ADD: CLOSE *1: 

00770 OPEN 41: "NAME= a*$1er",INTERNAL.OUTPUT 
00780 PRINT NEUPAGE 
00790 PRINT FIELDS HAT N$:Ai<4) 

00800 PRINT FIELDS MAT LCMAT 0* 

00810 INPUT FIELDS MAT Hi:NAMFt<J),ARDR4(J >,CITY<(1>,STATFi(J),7TP4<1>,PH0NF$<1) 

00820 IF NAME$(1)=RPT4(" VO) THEN ENDING 

00830 WRJTF 41,USING 63(>:NAMF4<1) ,ADDk't< 1) .CITYid) .SIATFtI J) ,7TPt<J) .PHONEtd) 

00840 CLOSE 41: 

00850 ROTO INQUIRE 

00860 REM-UPDATE RECORD 

00870 UPDATE: ! READ FILE AND DISPLAY EXISTING DATA 
00880 READ 41,USING 630,REC=G1 iNAHFid) ,ADDK*d) ,C11 Yid) .STATE* d> ,7TP*d) ,PHONEid) NORFC ADD 
00890 PRINT FIELDS MAT N*:A4<5> 

00900 PRINT FIELDS MAT l*:MAT D1 

00910 PRINT FIELDS MAT H*:NAMF*<J>.ADDRtd),CITY*d) .STATEid),?)P*<1),PHONEt(l) 

00920 INPUT FIELDS MAT Hi:NAME$d) .AOORi(l),CITY$<1>,STATEid),ZTP*d),PHONEId) 

00930 IF NAME*d)=RPTI<" VO) THEN ENDINO 

00940 REWRITE 41,USING 630:NAHE*(1> ,AD0R*d) ,CITY*d),STATE*!t),ZlP*d>,PHONE*d> 

00950 GOTO 690 

00960 REM-RELFTF RECORD 

00970 DII.ETE: DELETE 41,REC=GI: NOREC 690 

00980 GOTO 690 



O ( 
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Lines 

Description 

00760-00770 

These lines close the file, and then in line 770, the file is 
opened for the ADD routine with OUTPUT. We need to do 
this in order to open the file for SEQUENTIAL access, 
instead of RELATIVE. The reason for this is that, at this 
point, we don't know the record number of the last record 
in the file. 

00780-00790 

These lines display a description of the job being 
performed. This is the routine to add a record. 

00820 

If you don't enter any data, we return you th the MAIN 
MENU instead of writing a blank record to the file. ENDINQ 
is the label of line 730. 

00830 

The data is written to the file by using the FORM statement 
in line 630. 

00840-00850 

After we've added the record, we close the file and go back 
to the INQUIRE routine. 

00880-00910 

The record is read from the file, and the current information 
is displayed on the screen. 

00920 

This line accepts any changes you make to the current 
information. 

00930 

If you erase the data on the screen, we return you to the 
MAIN MENU rather than erasing the data in the file. 

00940 

The record is rewritten with your changes. 

00950 

This line sends control back to the INQUIRE routine at line 
690. 

00970-00980 

This is the DELETE routine. The specified record is deleted 
from the file, and control goes back to the INQUIRE routine. 
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Programming examples 

Example 3 (continued) 


00990 REM-----—--—~§r-- PRINT ARRAY 

01000 REPORT: OPEN $t:"NAME= *astpr".INTERNAL,INPUT 
02010 LET C=t 

010?0 READ $1,USING 630:WAMF4<C>,ADRR4(C) ,f.) VY4(C) ,STATF4(C5 ,7JP4ICi .PHONEKC) EOF C0NTPMH 
01030 LET C=C+1 
01010 GOTO 1020 
01030 C0NTPRNT: CLOSE Si: 

01060 PRINT NFNP AGE,"Set Tor as to Top «f pane" 

01070 PRINT “Press Enter to continue” 

01080 INPUT FIELDS “23, 2, c 
01090 G0S1JB OVERFLOW 
01)00 FOR X=1 TO C-5 

OHIO PRINT $?5&ilAR(S) ;NAME4CX> ;TAft(S+71 >:ADDRt(X):TAP?S+4?) ir.TTY*<Xi: 

01120 PRINT $255:TAR(S+63) :STATF4<X> ;TAR<S+74>:7fP*<X) :IA8(S+88) i PHONE! (X). 

01130 LET LINtl-LINFl+l 
01 MO IF LINE 1)40 THEN GrtSUB 1180 
01150 NEX1 X 
01160 RETURN 

0)170 REM ----PAG! OVERFLOW ROUTTNF 

01180 OVERFLOW: PRINT $255:NEWPAGE 

01.190 PRINT $255:TABM5l: M C U S 1 0 H E R INFORMATION LIS T" 

01.200 PRINT 1255: 

01210 PRINT $255: 

01220 PRINT $255:TAR(S);"NAHE";TAB(S+21)/"STREET ADDRESS":TAB(S+4?>;"CITY"L 
01230 PRINT $255:TAB(S+63)."STATE"jTAB(S+74>;"ZIP CODE";TAB(S+88);"PHONE NUMBER" 

01240 PRINT $255: 

01250 LET LINE1=0 
01260 RETURN 

01270 REM --—--- I/O FRROR 

01280 PRINT NEMPAGE/'I/O Error has occurred. Proqra* ter*.nated!" 

01290 PRINT "If treat ino MASTER file, enter 'FRFF MASTER' and rerun proqra*.” 

01300 END »*! 


K'J 
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Lines 

00100 

00102-01040 

01050 

01060-01080 

01090-01150 

01160 

01280-01290 


Description 

For the report, we open the file for input. This means that 
we are only going to read records from the file. 

This loop reads all of the records from the file into the data 
arrays and counts the number of records read. 

When the last record is read, control goes to line 1050 (EOF 
CONTPRNT). 

The file is closed after the last record is read. 

These lines display a message to set top of forms. The 
dummy variable Q$ accepts the entry when you press the 
Enter key. 

You saw these lines in Examples 1 and 2. They are used to 
print the reports and control paging. 

This line ends the PRINT subroutine and sends control back 
to the MAIN MENU. 

These lines display a message if an error occurs when you 
create the file in line 520. 

You have seen three different programs that print the same 
report. In the next chapter, we will show you another 
example program, which is even more complex. 
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Chapter 4. Example inventory program 


Introduction 


In this chapter, we will present an example inventory 
program. You have studied, in Books I-VII, each of the 
statements and programming methods used in this program. 
Therefore, you should find this program useful for review 
and future reference. 

You are not required to enter this program on your 
System/23. However, we think you will find it helpful. 
Entering the program and working with it will give you 
additional practice, something every beginning programmer 
needs. 

You can change parts of this program for your use. For 
example, you may want to enter the name of your company 
in line 790. You may also want to change line 880 to print 
more lines on each page. 

We do not expect you, at this point, to be able to write a 
program as complex as this example. We are including this 
program to show you what you can do with your 
System/23 after more study and more practice, practice, 
practice. 

A flowchart is included for this program. Also, you will find 
pages of notes describing each section of the program. 
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Example inventory program 


Flowchart 


Entire program 



This flowchart is an overall view of the entire program. The 
program offers five options, plus sign off: 

0. Sign off 

1. Create master inventory file 

2. Add items to master file 

3. Inquire items (also update and delete) 

4. Status report--all items 

5. Status report--zero quantity items 

This program uses full screen processing. Messages will be 
displayed on the screen if you enter a wrong answer. The 
data stored for each item in the file includes item number, 
description, unit cost, and quantity on hand. 

We will show flowcharts on the next three pages that detail 
the program options. As you can see from this general 
flowchart, you can return to the Main Menu after each 
option. The first symbol in this flow chart represents a 
display of the program options. 
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Create a file or add records 




4 



This flowchart is designed for menu options 1 and 2. It 
shows what happens when you create the inventory file or 
add records to the file. 

The first symbol in this flow chart represents the Main 
Menu. When you enter # for an item number, the program 
branches back to the Main Menu. 

You enter an item number, description, unit cost, and 
quantity on hand. If you enter any data incorrectly, you are 
given a chance to correct it. 

Each item is written to a data file. If you are creating the 
file with option 1, the OPEN statement will include the size 
of the file. 
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Example inventory program 

Flowchart (continued) 


Inquire about, update, or delete records 


TFroml 
I main I 



This flowchart is designed for menu option 3. It shows what 
happens when you check on, update, or delete a record in 
your file. 

The first symbol represents the Main Menu. When you 
enter # for an item number, the program branches back to 
the Main Menu. 

When you enter an item number, the file is read sequentially 
until the record is found. We could have used a 
key-indexed file, but we didn't want to interrupt the 
program to run the INDEX Customer Support Function. 

Records are read from the file, and the data is displayed on 
your screen. If something needs to be changed, you enter 
the correction, and the record is rewritten to the file. 

If you want to delete the record, it is deleted from the file. 

After checking on, updating, or deleting a record, you go on 
to check on, update, or delete another record. 




f 
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Print reports 


[ Froml 
main I 



This flowchart is designed for menu options 4 and 5. It 
shows what happens when you print the inventory status 
reports. 

The first symbol represents the Main Menu. At the end of 
the report, the program branches back to the Main Menu. 

The program uses subroutines to print the headings and to 
advance the paper to a new page. 

Records are read from the file in sequential order. When 
you reach the end of the file, you are ready to print the 
totals. 

The data for all items will be printed when you enter option 
4. The data for only zero-quantity items will be printed 
when you enter option 5. 
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Example inventory program 

Program 


00010 ! * EXAMPLE INVENTORY PROGRAM * 

00020 ! * FOR BOOK VII OF 
00030 ! * LEARNING SYSTEM/23 BASIC 
00040 OPTION BASE 1 
00050 ON ERROR GOTO ERRENB 

00060 ! -- 

00070 ! INITIALIZATION 

00080 ! -— 

0009 v . 

00100 DIM BSPFSPff5)*25/1NPFSPf 14)*15 
00110 DIM HSGFSP$(5)*10 

00120 DIM QTYFSP$(4)*15;SCRFSP$(3}*14 > TTLFSP$(4 > *1( 

00130 DIM FLDNM4f c a*12.MFNII4iA)«3R.,MSGfa?)*58 

00140 DIM STi 

00150 DIM ANS$»1, 




DE5CR$*20,ITEM$*5.,ITEM1$*5 
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Lines 

Description 

00010-00030 

The first three lines are used for remarks. You can change 
these statements to any comments that will help you 
identify the program. 

00040 

l 

OPTION BASE 1 specifies that the lowest array subscript 
allowed is 1. 

00050 

If an error occurs anywhere in the program, control goes to 
ERREND (line 2800), and the program ends. 

00060-00090 

These lines are remark statements. They are used to 
separate sections of the program. They also tell you what 
the different sections do in the program. 

00100-00120 

o 

These lines dimension the arrays that will be used for full 
screen processing. 

00130-00160 

These lines dimension the data arrays and tell how long the 
character variables can be. 
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Example inventory program 

Program (continued) 


00170 ! --FSP BATA 

00180 DATA "10,33,c 20,n","11,38,n 7.2,n" 

00190 DATA "12,38,1) 6,n , V'13,38,pic(tt$,$*$ 

00200 DATA " 3,38,c 5,n" 

00210 READ HAT DSPFSPT - 
00220 ! 

00230 DATA "10,3S,c 20,u ,n'*,"11,38,n 7,u ,n" 

00240 DATA "12,38,n 6,u ,n"," 8,38,c 5,u , 

00250 READ HAT INPFSPt 
00260 ! 

00270 DATA "17,12,c 53","18,12,c 51","19,24,c 27" 

00280 DATA "20,24,c 39","21,24,c 44" 

00290 READ HAT HSGFSP$ 

00300 ! 

00310 DATA "12,24,c 12","12,38,n 6,u ,n”,"12,54,c 8 
00320 DATA "12,63,n 6“ 

00330 READ HAT QTYFSP$ 

00340 ! 

00350 DATA "10,24,c 34","11,24,c 38","12,24,c 45" 

00360 DATA "13,24,c 38"," 8,24,c 19"," 9,24,c 35" 

00370 DATA " 6,24,c 18"," 3,24,c 35,h,n" 

00380 READ HAT SCRFSF't 
00390 ! 

00400 DATA " l,10,c 39"," l,58,c 5"," l,64,c 8" 

00410 DATA " 3,18,c 4" 

D HAT TTLFSPf 
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Lines 

Description 

00180-00210 

The DSPFSPS array contains the fields that display the data 
in a record during INQUIRY. 

00230-00250 

The INPFSPS array contains the fields that input data during 
CREATE/ADD and INQUIRY. 

00270-00290 

The MSGFSPS array contains the fields that display the 
instructions and error messages at the bottom of the 
screen. 

00310-00330 

The QTYFSPS array contains the fields that rewrite the 
quantity line during UPDATE. 

00350-00380 

The SCRFSPS array displays the prompts for the MAIN 
MENU, INQUIRY, and ADD/CREATE. 

00400-00420 

The TTLFSPS array displays the headings at the top of the 
screen. 
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Example inventory program 

Program (continued) 


00430 ! —----ARM*' r ‘-U 

00440 DATA "Description:".” Unit Ccst:V£rty on Hand:" 

00450 DATA "Total Value:";" I ten) Number." 

00460 READ HAT FLDNM$ 

00470 ! 

00480 DATA 2. ADD ITEMS TO MASTER FILE 
00490 DATA 3. INQUIRE ITEMS (t- UPDATE 6 DELETE) 

00500 DATA 4. STATUS REPORT - ALL ITEMS 

00510 DATA 5. STATUS REPORT - ZERO QUANTITY ITEMS 

00520 DATA 0. SIGN GFF,"1. * CREATE MASTER INVENTORY FILE 

00530 DATA "Options available:"',^# MENU 

00540 READ MAT MENU* 

00550 ! 

00560 LET MSG4(l)="Enter option number and press Enter" 
00570 LET HSG$(2)= H Enter: Item Number (or i to return " 

00580 LET MSGf(2)=MSG$(2>6"t o MAIN MENU)" 

00590 LET MSGt(35'-RPT$(" 'M2)i"Description of Item" 

00600 LET MSGt(4)="Unit Cost" 

00610 LET MSGt(5)-"Quant i ty on Hand" 

00620 LET MSGf(6)=”Gty on Hand - Enter received qty (+) or" 
00630 LET MS6$(7)=RPT${" ",14)J,"sold qty .(-) or 0 if no change" 
00640 LET MSG*(8)="Hay change:" 

00650 LET MSG$(9)="Is everything okay?" 

00660 LET MS'G$aO)="l5 Item okay?" 

00670 LET MSG$(U)="Y = Yes" 

00680 LEI MSG$( 12)="N No" 

00690 LET MSG$(13)="D = Delete Item" 

00700 LET MSG$(14)="** INVALID ENTRY - REENTER *#" 

00710 LET MSG$(15)="Fie!d must be ail numbers" 

00720 LET MSG*Q6)="Neu Qty makes Qty on Hand < 0 or ') 99999" 
00730 LET MSG$U?>="Uttit Cost is < 0 or > 9999.99" 

00740 LET MSGf(18)="** ITEM NOT FOUND »*" 

00750 LET iiSG4(19)="Enter new Item Number (or i to return " 
00760 LET MSG$ ( 19 ) =MSG$ (19) 6 "to MAIN MENU)" 
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Lines 


Description 


00440-00460 


The FLDNM$ array contains the prompts, which are 
displayed by using the SCRFSPS fields. 


00480-00540 The MENUS array contains the list of menu options, which 

are displayed by using the SCRFSPS fields. 


00560-00760 





The MSGS array contains all of the instructions and error 
messages, which are displayed by using the MSGFSPS 
fields. 

Notice that we are assigning values to the MSGS array by 
using LET statements. The LET statements allow easy 
reference when tracing a program listing. 

All of the arrays prior to MSGS were assigned values by 
using READ/DATA statements. Because we are using BASE 
1 in our OPTION statement, the first element in each of 
these arrays has a subscript of (1). 

Notice lines 590 and 630. We are using the RPTS function, 
which repeats the blank string " " either 12 or 14 times. 

We use this technique to line up the messages on the 
screen. 

Also notice that several lines in this section contain the & 
sign. Remember that this is how you join two strings 
together. 
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Example inventory program 

Program (continued) 


O 


00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 


LET STATf ; :PTt(l)="+' l 6f : :PT$("-"/93)&"+'' 

LET STATRPT!(2)*"i"6.RPT$(" M5)6"W 0 R L D WIDE 
LET STATRPT!(3)«STATRPT$(1) 


M A N U F A C T U R I N 6 


C 0./ L T D."6RPT$(" ",15)6" 




Qty on Hand I Unit Cost I Total Value of On-Hand Items 


LET STATRPT$(3M15:15)="+" 

LET STATRPT$ < 3) < 38 *• 38)= M + M 
LET STATRPT!(3>(52-52)-"+" 

LET STATRPTK3)(64:64)="+" 

LET STATRPT$(4)="| Item Number | Description 

I ---SCALAR DATA 

LET AP$="AppMeat ion: EXAMPLE INVENTORY PROGRAM" 

LET PAGELEN=5 

. -FORM STATEMENTS 

DATEFORM: FORM "| Date: ",C 8,PCS 35,C 35,P0S 84,"Page: »,H 3," 1" 

FILEFORM: FORM C 5,C 20,N 7.2,N 5,N 11.2 

RPTFORM: FORM "|",P0S 8.C 5,X 4,C 20,P0S 45,PIC(Z2,ZZt),X 3,PIC(i$,♦$#.«),POS 80,PlC<$$*,ttMtt.**> 
TOTFORM: FORM "|",P0S 27,"TOTALS",POS 41,PIC(ZZ,ZZZ,ZZi),P0S 76,PIC($!!,$f$,m,$$4.«)," I" 

I ---UNIVERSAL EXIT STATEMENT 

ERREX: EXIT EOF ERRENB/CONV ERRENB,SOFLOW ERRENB 




4-12 SA34-0127 








Lines 


Description 


^ 00780-00850 

The STATRPTS array contains some lines that are printed 
on the status reports. 

Notice that we are using the & sign again. Also, look at 
lines 790 and 850. These statements have been printed on 
more than one line, because the statements are longer than 
80 characters. 

00870 

APS is the name of the application. The name is displayed 
by using the TTLFSPS fields. 

00880 

PAGELEN is the number of lines printed on a report page. 
You may want to change this number. 

00900-00930 

O 

Lines 900, 920, and 930 are FORM statements that are 
used to print the reports. The first word on each of these 
lines is a statement label. 

• 

Line 910 (FILEFORM) is used to read data from and write 
data to the ITEM file. 

00950 

This EXIT statement contains error conditions that should 
never happen. If any of them does happen, control goes to 
line 2800. 
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Example inventory program 

Program (continued) 



00960 ! - 

00970 i BEGIN PROCESSING - BRING UP MAIN MENU 

00980 ! --- 

00990 START: PRINT NEUPAGE 

01000 PRINT FIELDS NAT TlLFSPi:AP$,"Date:",DATE*,"Job:" 

01010 PRINT FIELDS HAT SCRFSPHHAT HENUf 
01020 PRINT FIELDS HSGFSPM1)) 

01030 INPUT FIELDS "17,33,n l,h,n":0PT C0NV 1050 
01040 IF OPT>=0 AND 0F'T<6 THEN 1070 
01050 ! ERROR 
01060 GOTO 1030 

01070 IF OPT<2 THEN LET 0PTNAHEf=HENU$(0PH5)(4:38) ELSE LEI 0PTNAHEF=HENUI(0PMH4:38) 
01080 ON OPT GOTO NEti,ADD,IN8,REPORT,REPORT NONE FIN 

01090 ! ---- 

01100 ! ADD OR CREATE - MENU OPTIONS 1 AND 2 

Ohio !--- 

01120 NEW: OPEN il:"NAHE= itea.Blaster//!,SI£E= 512,RECL= 63’*,INTERNAL,OUTPUT 
01130 GOTO ADI 

01140 ADD: OPEN il:"NAHE= i tern, master "..INTERNAL, OUTPUT 

01150 ! -PUT IIP INPUT SCREEN 

01160 ADI: PRINT FIELDS HAT SCRFSPfiHAT FLDNHf..OPTNAHE* 

01170 AB1NEXT: PRINT FIELDS HAT INPFSM!“",O>0, , ‘* ,< 

01180 THERE: PRINT FIELDS HAT HSGFSF'$:HSG$(2),HSG$(3) >HSG$<4) ,HS6$■;5),! DIRECTIONS 
01190 LET INPFSPt(4 > <13:13)="c" ! PUT CURSOR IN ITEH$ FIELD 
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Lines 

Description 

00990-01020 

These lines clear the screen and display the Main Menu. 

01030 

This line enters the option number, beginning in line 17, 
column 33. Notice that the input field is highlighted. 

01040-01070 

These lines test OPT to see if it is a valid entry for the 
option. If the entry is invalid, return to line 1030. Then 
reenter the option number. 

If OPT is a valid entry, OPTNAMES becomes the job title. 
The job title is found in the MENUS array. 

Notice that we use character positions in line 1070 to find 
the correct title. 

01080 

Using a computed ON-GOTO, we direct program control to 
the correct section for each option. 

01120-01140 

These lines open the file ITEM.MASTER. Two different 
statements are required, because the OPEN statement 
differs for old and new files. 

01160-01190 

These lines display the prompts, as well as a default value 
for each entry. Then the cursor is placed in the first field, 
where you enter the item number. 
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Example inventory program 

Program (continued) 


01200 ! -- INPUT DATA 

01210 HERE: INPUT FIELDS MAT INPFSP$!DESCR$>COST,QTt,ITEH$ CONV INPC0NV 
01220 IF ITEM$(1:1)="4" THEN ABEND I END OF INPUT 
01230 IF C0ST>=0 AND C0ST<10000 THEN TO 
01200 ! ERROR IN COST 

01250 PRINT FIELDS MAT MS0FSP$:^f(14),MS6$Q7) 

01260 LET CURSPARM=2 
01270 GOSUB CURSPOS 
01280 GOTO HERE 

01290 TQ: IF QTY>=0 AND QTY<100000 THEN AD2 
01300 ! ERROR IN QUANTITY 

01310 PRINT FIELDS MAT MSGFSP$:MSG$(14) ,MSGt(16) /"W" 

01320 LET CURSPARM=3 
01330 GOSUB CURSPOS 
01340 GOTO HERE 

01350 ! ---EVERYTHING OK? 

01360 AD2: PRINT FIELDS DSPFSPt(4):QTY#C0ST 

01370 PRINT FIELDS MAT MSGFSP*:MS6*<?).MSGt(ll) ,MSG$(12) 

01380 INPUT FIELDS "17,33,c l,h,n":ANS$ 

01390 ON F'OS ("YyNn K ,ANS$,l) GOTO HRITEIT .WR1TEIT.THERE,THERE NONE 1400 
01400 ! ERROR 
01410 GOTO 1380 

01420 ! -WRITE RECORD 

01430 WRITEIT: WRITE 41,USING FILEFORM:ITEM$,DESCRt,C03T;QfY,QTY*C0bT EXIT ERREX 
01440 PRINT FIELDS SCRFSP*(4):FLBNM$(4) ! ERASE TOTAL VALUE 
01450 GOTO ADINEXT 

01460 ! -- END OF ADD/CREATE INPUT 

01470 ABEND: CLOSE 41: 

01480 GOTO START 
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Lines 


01210 


01220-01280 


01290-01340 


01360-01370 


Description 

This line inputs each field of data. If a conversion error 
occurs, go to statement INPCONV (line 2620). 

If you enter an item number of #, go to statement ADEND 
(line 1470). If the cost is incorrect, display an error 
message, position the cursor, and reenter. Otherwise, go on 
to check the quantity. 

If the quantity is entered correctly, go to statement AD2 
(line 1360). If not, display an error message, place the 
cursor in the quantity field, and reenter. 

Compute and display the total value for the item. 


01380 



Ask if everything is okay, and input the answer. This allows 
you to check your entries. 


01390 


! 

? 

* 


01400-01410 

01430-01440 


If everything is okay, go to statement WRITEIT (line 1430), 
and write the data to the file. If it's not okay, go to THERE 
(line 1180) so everything can be reentered. 

The question was answered incorrectly, so answer the 
question again. 

Write the data to the file. Go back to statement ADI NEXT 
(line 1170), and enter another time. 


01470-01480 



You entered an item number of #, which indicates the end 
of data entry. Close the file and return to the Main Menu 
(line 990). 
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Example inventory program 

Program (continued) 


01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 




mm 

i _ 

i INQUIRE - OPTION 3 

I _,_ 

INQ i OPEN tl:"NANE= i 4 em. ma s ter , INTERNAL / OUT IN 

Hl« PRINT FIELDS HAT SCRFSP^V’VV VLDNH*<5),"V%0PTNAHE$ ! INITIAL PROMPT 
PRINT FIELDS MAT MSGFSPUM3GF(2)/"'/”* ! DIRECTIONS 

PRINT FIELDS 1NPFSP$<4) s ! DEFAULT 

! -GET ITEM NUMBER AND FIND RECORD 

INQINP: INPUT FIELDS 1NPFSP$<4>ilTEMlt 
IF ITEM14U:l)=”r THEN INEND ! END OF INQUIRY 
! SEARCH FILE FOR ITEM NUMBER 

ITESTi RESTORE SU ! START SEARCH AT BEGINNING OF FILE 
READ *1,USING FILEFORM! ITEN$>DESCR4,COST/QTY,TOTAL EOF NRERR 
IF ITEM$XITEM1$ THEN 1610 

. --DISPLAY DATA FROM FOUND ITEM 

IN2i PRINT FIELDS MAT SCRFSPIsMAT FLDNM$ ! PROMPTS 
PRINT FIELDS MAT DSPFSP*DESCR$ /COST ,QTY , TOTAL, 1 Tfc.M$ 

. - IT EM OK? 

PRINT FIELDS MAT HSGFSP$:HSG$(10)," M ,hSGf(ll>,HSGt(12),HSG*U3) ! DIRECTIONS 
INPUT FIELDS "17,27,c 1,MEANS'* 

ON POS ("YyNnDd",ANS$,D GOTO IN1,IN1,1N3,IN3,INDEL,INDEL NONE 1700 
! ERROR 
GOTO 1680 

I ---DELETE ITEM 

INDEL: DELETE Sis 
GOTO INI 
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Lines 


Description 


01520 


Open the file for INQUIRY. Since the file should already 
exist, don't state RECL or SIZE. 


01530-01540 


Display the prompts and instructions for INQUIRY. 


01570 


Enter an item number. 


01580 


If the record number is #, the INQUIRY is finished. Go to 
statement INEND (line 2060). 


01600-01620 


01640-01670 

01680 

01690 


01700-01710 

\ 

01730-01740 



Read the file sequentially until you find the correct item 
number. We could find the record quicker with a 
key-indexed file, but we didn't want to run the INDEX 
Customer Support Function. 

Display the data and ask if everything is okay. 

Input the answer. 

If everything is okay, go to statement INI (line 1530) to ask 
for another item. If not, go to IN3 (line 1760) to update 
item. If you want to delete the record, go to INDEL (line 
1730). 

The question was answered incorrectly, so answer the 
question again. 

Delete the item (record just read), and go back for the next 
item. 
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Example inventory program 

Program (continued) 


01750 ! —--CHANGE ITEM 

01760 IN3? PRINT FIELDS HAT GTYFSP$:“ Quant 1 ty: ",0,"Or. Hands",9TY ! REWRITE QUANTITY LINE FOR INPUT 
01770 PRINT FIELDS HAT HSGTSP$:HSGf(8),HS6$(3),HSG*(4),HSG$<6),HSG$(7) ! DIRECTIONS 
01780 LET CURSPARH=1 

01790 GOSUB CURSPOS ! POSH ION CURSOR TO 1ST FIELD 

01800 HEREIN: INPUT FIELDS HAT INPFSP$!DESCRY,COST,NEWQTY CGNV INPCONV 

01810 IF C0ST)=0 AND COSH 10000 THEN TESTQIN 

01820 ! ERROR IN COST 

01830 PRINT FIELDS HAT HSGFSP$sMSG*(14),HS6*U7)/"W" 

01840 LET CURSPARH=2 
01850 GOSUB CURSPOS 
01860 GOTO HEREIN 

01870 TESTQIN: IF GTY+NEWQTY>=G AND QTY+NEWQ1Y<100000 THEN IN4 
01880 f ERROR IN QUANTITY 

01890 PRINT FIELDS HAT HS6FSP*:MSG$( 14),HSG$\16)/"W” 

01900 LET CURSPARH=3 
01910 GOSUB CURSPOS 
01920 GOTO HEREIN 

01930 ! ---EVERYTHING OK? 

01940 IN4: LET QTY=GTY+NEWGTY 

01950 PRINT FIELDS SCRFSPH3):FLDNH$<3) ! REWRITE PROHPT 

01960 PRINT FIELDS HAT DSPFSP$:DESCR$,COST,QTY,COBT^QTY 

01970 PRINT FIELDS HAT HSGFSP$:HSG$<9>," n ,HSG$(ll),HSG$(12)! DIRECTIONS 

01980 INPUT FIELDS “17,33,c l,h,n“:ANS$ 

01990 ON POS ("YyNn ,, /ANS$;l) GOTO INWR1TE,INWRITE,1N3,INS NONE 2000 
02000 ! ERROR 
02010 GOTO 1980 

02020 ! ---WRITE CHANGED RECORD 

02030 INWRITE: REWRITE 41,USING FILEFORM:IfEh$,DESCR$,CQST,QTY,QTY*COST EXIT ERREX 
02040 GOTO INI 

02050 ! -— ---—-----— ' END OF INQUIRY 

02060 INEND: CLOSE ill 
02070 GOTO START 


4-20 


SA34-0127 














Lines 


Description 


01760-01770 

Display prompts and instructions for UPDATE. 

01780-01800 

Position the cursor and enter new data for the item. 

01810 

If the cost is okay, go on to test the quantityfline 1870). 

01820-01860 

If the cost is incorrect, display an error message. Place the 
cursor in the cost field and reenter. HEREIN (line 1800), is 
where you go to reenter your data. 

01870 

Test the new quantity. If it's okay, go to statement IN4 (line 
1940). 

01890-01920 

The new quantity is too large or too small. Display an error 
message, and enter new data. 

01940-01970 

Display the new data and total value. Ask if everything is 
okay. 

01980 

Answer the question. 

01990 

If everything is okay, go to statement INWRITE (line 2030). 
If not, go to IN3 (line 1760) to correct the information. 

02000-02010 

The question was answered incorrectly, so answer the 
question again. 

02030-02040 

Rewrite the record with the new data, and go back for the 
next item. 

02060-02070 

You entered a record number of #, which indicates the end 
of INQUIRY. Close the file and return to the Main Menu. 
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Example inventory program 

Program (continued) 


02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02.380 


! REPORTS - OPTIONS 4 AND 5 

| ____ 

REPORT: PRINT NEWPAGE."Report in progress - p lease wait." 

LET T0TQTY=0 
LET T0rAi1T=0 
LET PAGEN0=0 

OPEN 41:"NAME= i te®. waster",INTERNAL,. INPUT 
80SUB PAGEHEAD 

! -READ PILE AND PRINT DETAIL LINES 

LOOP: FOR LINEN0=! TO F'AGELEN 

READ 41,USING PILEFORH:ITEHf,DESCRF,COST,STY,TOTAL EOF RPTEND 
IF 0PT=5 AND QTYHO THEN 2190 

PRINT 4255,USING RPTFORH!1TEHf,DESCRY,QTY,COST,TOTAL 
LET T0TQTY=T0TQTY+QTY 
LET TOTAMT=TGTAMT+TOTAL 
NEXT LINENO 
GOSUB PAGESKIP 
GOTO LOOP 

: - END OF REPORT - PRINT TOTALS 

RPTENIi: IF LINENOlF’AGELEN-2 THEN GOSUB PAGESKIF' 

IF LINENLM THEN 2330 

! NOT START OF NEU PAGE SO PRINT DIVIDING LINES 

PRINT 4255:"I",TAB(41);"-" j TAB«77);RRTt(,17)j” 

LET LIN£N0=LINEN0+1 

PRINT 4255:'T',TAB(?5)j"|" j SKIP A LINE 
PRINT 4255,USING TOTFORHsTOTQTY-TOTAflf 
LET LINEN0=LINEN0+2 
GOSUB PAGENIi 
CLOSE 41: 

GOTO START 



ill 
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Lines 

02110 


02120-02140 


Description 

Display a message before starting reports. Notice that this 
statement is not full screen processing. 

Initialize the totals to 0. 


02150 


Open the file for input. In this section of the program you 
will never write to the file, you will just read from it. 


02160 


Go to the subroutine (line 2510) that prints the heading on 
your reports. 


02180-02240 


I 02250-02260 


02280-02360 


02370-02380 



This loop reads the file and prints data for the items we 
want. If you choose option 5, only zero-quantity items will 
be printed. The totals are accumulated for the report on 
both options, but they'll always be zero for option 5. 

When the loop ends, advance the paper to a new page, and 
start the loop over again. Continue the loop until you reach 
the end of the file. Notice the EOF RPTEND, which sends 
control to line 2280 when you reach the end of the file. 

After you reach the end of the file, print the totals line. If 
there is not enough room on the page, skip to the next 
page. Skip a line between the items and the totals. 

Close the file and return to the Main Menu line (990). 
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Example inventory program 

Program (continued) 


02400 


USED IN REPORTS 


02440 


W 


02460 
02470 
02480 
02490 


02500 


FOR I=LINENQ TO PA6ELEN 
4255. , "|"/TAB(S3};"|" ! SKIP A LINE 

NEXT I 

PRINT i255!STATRPT$«l) 

RETURN 
! 

PAGESKIP: G0SUB FA6ENH 
PRINT i255:NEWPAGE 
! 

T: LET PAGEN0=PAGEN0+1 
t255:STATRPT* <1>,TAB«1>;STATRPT$(2) 

I NT »255*‘ " | ".,TAB(95> | “ ! SKIP A LINE 

*255,USING BAfEF0RN:[iATE$,QPTNAi4E*;PAGEN0 
'55; STATRPT* (1), TAB(1);STATRPTi(4) 
t255:SIATRPT$(3) 

LET LINEN0=1 
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Lines 

Description 

02420-02460 

PAGEND is a subroutine that skips blank lines between the 
totals line and the bottom line of the report page. This 
subroutine keeps all the pages the same size. 

02480-02580 

PAGESKIP is a subroutine that ends the current page, by 
using the PAGEND subroutine lines (2420-2460). Then the 
page advances, and the headings are printed. 

02510-02580 

PAGEHEAD is a subroutine that prints the headings for a 
report. This subroutine is actually a part of the PAGESKIP 
subroutine. PAGEHEAD prints the headings without 
skipping a page first. 

02570 

You set LINENO = 1, in case a page is skipped immediately 
before printing the totals. 

02580 

Notice that PAGESKIP and PAGEHEAD use the same 
RETURN. 
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Example inventory program 

Program (continued) 


0259.0 

02600 


_ 


! ERROR ACTIONS 

j - 


02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 


INPC0NV: LET CURSPARM=CNT+1 

PRINT FIELDS HAT MSG'FSP*: HS6T(14),HSG$< 15) /"" >"";"" 

GOStJB CURSP0S 
RETRY 

NRERR: PRINT FIELDS HAT MSGFSPf: MSG$ U 8) ,■ MSG't(19)."","", “" 
GOTO INOINP 
! 

! SUBROUTINE USED FOR ERROR ACTIONS 




CURSPOS: FOR 1=1 TO 4 

IF I=CURSPARM THEN LET INPFSPta)a3il3)="t'' ELSE LET INPFSP*<1)U3:13)=" 

NEXT I 
RETURN 


I END OF PROGRAM 




! - 


ABNORMAL END 


ERREND: PRINT NEUPAGE,"EOF or I/O error occurred." 
PRINT "Program terminated." 

STOP 



- NORMAL END 


FIN: PRINT NEWPAGE,"Program ended normally." 

■ 
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Lines 

02620-02650 


02670-02680 

02720-02750 


Description 

If there is a conversion error on ADD or INQUIRE, display 
an error message, position the cursor to the field with the 
error, and return to the statement where the error occurred. 

If we can't find the desired record during INQUIRY, we 
display an error message and return to INQUIRY to reenter. 

This subroutine repositions the cursor to the input field 
where an error occurs. 


02790-02820 The program ends here and a message is displayed if you 

have an IOERR. (Remember the ON ERROR in line 50.) 

02830-02850 The program ends here on normal program termination 

(when you select option 0 from the menu). 


Congratulations! You have completed your course in 
Learning System/23 BASIC. 

To learn more about System/23 BASIC, you can refer to 
your BASIC Lanuage Reference manual. 
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Index 


< less than 11.3-4 
<>/<> not equal to 11.3-4 
' <= or = < less than or equal to 11.3-4 
> greater than 11.3-4 
>= or => greater than or equal to 11.3-4 
? prompt 11.1-5 
= equal to 11.3-4 


accessing a file VI.4-8 

accessing records directly VI.3-3 
action code 11.5-5 
adding 1.4-2 

adding ELSE to IF-THEN 11.3-13 
adding statements to programs 1.3-2 
advancing to a new page 111.2-7 
array 

definition IV.1-2 

dimensioning (DIM statement) IV.1-4 
displaying (PRINT MAT) IV.4-3 
elements of IV.1-2 

indicating starting position of (OPTION) IV.1-3 
initial value of elements in IV.1-5, IV.2-11 
naming IV.1-2, IV.2-2 
one-dimensional arrays IV.1-2 
printing an (PRINT #255: MAT) IV.4-3 
specifying number of elements in IV.1-4 
subscripted variables IV.1-2 

two-dimensional arrays IV.3 : 2 
used in programs IV.1-7 

assigning line numbers 

automatically (using AUTO) 1.2-7 
line by line 1.2-5 

assigning more than one value 11.1-6 
assigning values from a file VI.1-8 

assigning values from the keyboard 
character values 11.1-4 
DISPLAY file VI.1-8 
INTERNAL files — relative access VI.3-6 

INTERNAL files — sequential access VI.2-9 

more than one value 11.1-6 
numeric values 11.1-2,11.1-4 
using INPUT statement 11.1-3 
using LET statement 11.1-2 
assigning values to arrays (see MAT assignment) 
assigning values to variables 1.5-4 


AUTO command 

entering a data file VI.1-2 

entering a program 1.2-2 

stopping the AUTO operation 1.2-7, 1.2-9 

variations of (see BASIC Language Ref) 


BASE 0 and OPTION STATEMENT IV.1-3 
BASE 1 and OPTION statement IV.1-3 
BASIC character set (see BASIC Language Ref) 
BELL (see PRINT BELL) 
branching 

conditional 11.3-2 
IF-THEN 11.3-4 
IF-THEN/ELSE 11.3-3 
labels 11.2-5 
test conditions 11.3-4 
unconditional 11.3-2 
used with 11.3-2 


calling subroutines V.1-2 
changing a line in a program 111.3-7 
changing a program 

adding a statement 1.3-6 
changing line numbers 1.3-2 
deleting a statement 1.3-9 
RENUM command 1.3-2 
replacing a statement 1.3-11 
changing a record in a file V1.4-11 
changing order of execution 11.2-2 
using GOSUB/RETURN V.1-2 
using GOTO 11.2-2 
using labels with GOTO 11.2-5 
using ON GOSUB V.2-8 
using ON GOTO V.2-3 

character 

definition 1.1-2 
character arrays 

dimensioning (using DIM statement) IV.24 

elements of IV.2-2 
naming 1.2-2 

starting position of elements (OPTION) V.2-3 
subscripts IV.2-2 
character strings 

dimensioning (using DIM statement) IV.24 
elements of IV.2-2 
naming IV.2-2 
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starting position of elements (OPTION) V.2-3 
subscripts IV.2-2 
character strings 

joining two strings with & V.3-9 

maximum number of characters (default) IV.2-12 
quotation marks used with IV.2-6 
spaces within IV.2-6 
specifying character positions V.3-9 
specifying length of in arrays IV.2-5, IV.3-6 
character variables 

default dimension value of IV.2-9 
definition 1.5-6 
dimensioning IV.2-4 
internal constants 1.5-8 
maximum length of IV.2-9 

string overflow in IV.2-8 

using $ with 1.5-6 
CLEAR ALL VI.6-5 
CLEAR command 1.2-2, VI.1-3 
clearing the work area 1.2-2, 1.6-4 
CLOSE statement VI.4-16 
closing an open file (CLOSE) VI.4-16 
CMD key 1.3-4 

: V.3-9 

combining numbers and words 1.1-7 
command keys 1.3-4 
commas 11.1-10 
computed GO.SUB V.2-9 
computed GOTO V.2-3 
conditional branches 11.3-2 
conditional tests 11.3-4 
continuous loops 11.4-3 
controlling displayed/printed data 
FORM C II 1.3-4 
FORM N 111.3-2 
FORM PIC 111.3-6 
FORMPOS Ml.3-13 

FORM SKIP 111.3-15 
copying data into a file VI.2-7 
copying data into relative record file VI.3-4 
creating a data file VI.1-3 
creating an index file 
datafiles VI.5-4 
workfile VI.5-10 


data 

formatting II 1.3-13 
positioning data for display 111.3-15 
DATA command VI.1-3 
data file 

copying data into VI.1-7 
creating within a running program VI.1-5 
entering into a work area VI.1-5 
file reference number VI.1-6 
file-id VI.1-6 
naming a VI.1-4 
saving a VI.1-4 
data file/program file VI.1-1 
DATA statement 11.5-2 

assigning values using 11.5-2 
character values in 11.5-6 
error 0054 11.5-4 

location in program 11.5-3 
order of DAT A val ues 11.5-8 
RESTORE statement 11.3-8 
RESTORE statement 11.5-8 
using more values than variables 11.5-4 
using strings with 11.5-6 
using too few values 11.5-4 
deactivating a file (CLOSE statement) VI.4-16 
DEF statement VI.3-7 
DEF/LET/FNEND statement V.3-9 
defining a function (DEF statement) VI.3-7 
defining data within VII.1-3 
field definition VI 1.1-4 

underlining in full screen processing VII.1-10 
using multiple input fields VII.1-6 
defining the location of data VI 1.1-3 
DEL command 1.3-9 
DELETE statement VI.4-15 
DELETE/KEY= statement VI.5-19 
deleting a record from a data file VI.4-15 
deleting a statement 
line by line 1.3-2 
multiple lines 1.3-10 
device address 1.6-3 
DIM statement 

including numeric and character arrays IV.2-4 
specifying length of character string IV.2-4 
used with FOR/NEXT loop IV.2-11 
used with FORM statement IV.2-6 
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used with one dimensional arrays IV.1-4 
used with two dimensional arrays IV.3-3 
with character arrays IV.2-2 

with numeric arrays IV.1-4 
DIR command 1.6-4, VI. 1-5 
direct or relative access VI.3-2 
directing the GOTO statement 11.2-5 
display 

listing the contents of VI.1-7 
loading a VI.1-7 
opening a VI.1-6 
saving a copy of VI.1-7 
displaying an entire array IV.4-2 
displaying data 111.3-2 
one line of data VII.1-2 
several lines of data VI 1.1-7 
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